home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Demo.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-11-26  |  3.0 KB  |  129 lines
  1. G4C
  2.  
  3. ; Demo.gc
  4. ; a simple gui to launch stuff..
  5.  
  6. WINBIG 174 43 310 164 Demo.gc
  7. WinType 11110001
  8. ShareMenu gcmenu.g   ; share menus with this gui
  9. resinfo 8 640 256
  10.  
  11. xOnLoad
  12.     ifexists assign guis:
  13.        ; ok
  14.     else
  15.        extract demo.gc guipath g4cpath
  16.        assign guis: $g4cpath
  17.        cli 'c:path guis:c add'
  18.     endif
  19.     guiload guis:tools/gcmenu.g  ; load the gui with the menus
  20.     GuiOpen Demo.gc
  21.  
  22. xOnClose
  23.     guiclose demo.gc
  24.     setgad demo.gc 20 ON
  25.  
  26. xAppIcon -1 -1 :Gui4Cli 'G4C Demo' '' OFF
  27.     gadid 20
  28.     guiopen demo.gc
  29.     setgad demo.gc 20 OFF
  30.  
  31. BOX 0 0 310 164 out button
  32. ; ICON 219 9 :gui4cli
  33.  
  34. TEXT 12 16 195 15 "Read the ReadMe" 40 BOX
  35.     gadid 1
  36.     attr resize 0121
  37.     attr title "2/1/Shadow/left/above/Some things to do.."
  38. XBUTTON 212 16 91 15 "ReadMe"
  39.     attr resize 2101
  40.     update demo.gc 1 Loading...
  41.     *FILENAME = guis:readme.now
  42.     guiload guis:tools/read.gc
  43.     Update demo.gc 1 'Read the ReadMe'
  44.  
  45. TEXT 12 32 195 15 "Read the Guide" 40 BOX
  46.     attr resize 0121
  47.     gadid 2
  48. XBUTTON 212 32 91 15 "Guide"
  49.     attr resize 2101
  50.     update demo.gc 2 Loading...
  51.     run 'multiview guis:docs/Gui4Cli.guide'
  52.     update demo.gc 2 'Read the Guide'
  53.  
  54. TEXT 12 48 195 15 "Run the File Manager" 40 BOX
  55.     attr resize 0121
  56.     gadid 3
  57. XBUTTON 212 48 91 15 "Dir.gc"
  58.     attr resize 2101
  59.     update demo.gc 3 Loading...
  60.     guiload guis:dir/dir.gc
  61.     update demo.gc 3 'Run the File Manager'
  62.  
  63. TEXT 12 64 195 15 "Search for Files" 40 BOX
  64.     attr resize 0121
  65.     gadid 21
  66. XBUTTON 212 64 91 15 "FSearch.gc"
  67.     attr resize 2101
  68.     update demo.gc 21 Loading...
  69.     guiload guis:g4c/fsearch/fsearch.gc
  70.     update demo.gc 21 'Search for Files'
  71.  
  72. TEXT 12 80 195 15 "Replace text in files" 40 BOX
  73.     attr resize 0121
  74.     gadid 22
  75. XBUTTON 212 80 91 15 "Rep.gc"
  76.     attr resize 2101
  77.     update demo.gc 22 Loading...
  78.     guiload guis:g4c/rep.gc
  79.     update demo.gc 22 'Replace text in files'
  80.  
  81. TEXT 12 96 195 15 "Read a Guide fast" 40 BOX
  82.     attr resize 0121
  83.     gadid 6
  84. XBUTTON 212 96 91 15 "FastRead"
  85.     attr resize 2101
  86.     update demo.gc 6 Loading...
  87.     guiload guis:tools/fastread/fastread.gc
  88.     update demo.gc 6 'Read a Guide fast'
  89.  
  90. TEXT 12 112 195 15 "Change the Palette" 40 BOX
  91.     attr resize 0121
  92.     gadid 5
  93. XBUTTON 212 112 91 15 "Palette"
  94.     attr resize 2101
  95.     update demo.gc 5 Loading...
  96.     guiload guis:tools/palette.gc
  97.     update demo.gc 5 'Change the Palette'
  98.  
  99. TEXT 12 128 195 15 "Look at the Tutorials" 40 BOX
  100.     attr resize 0121
  101.     gadid 4
  102. XBUTTON 212 128 91 15 "Tutorials"
  103.     attr resize 2101
  104.     update demo.gc 4 Loading...
  105.     guiload guis:docs/tutorials.gc
  106.     update demo.gc 4 'Look at the Tutorials'
  107.  
  108. TEXT 12 144 195 15 "Make a Gui.." 40 BOX
  109.     attr resize 0121
  110.     gadid 7
  111. XBUTTON 212 144 91 15 "GuiEdit"
  112.     attr resize 2101
  113.     update demo.gc 7 Loading...
  114.     guiname = ''
  115.     ReqFile -1 -1 300 200 "Enter GUI Name:" LOAD guiname 'ram:'
  116.     if $guiname > ''
  117.        ifexists file $guiname    ; chose existing gui
  118.            ;
  119.        else
  120.            extract guiname file name
  121.            .dummy = 'G4C\n\nWinBig -1 -1 200 100 $name\nWinType 11110001\n\nxOnLoad\nGuiOpen $name\n\nxOnClose\nGuiQuit $name\n\n'
  122.            copy env:.dummy $guiname
  123.        endif
  124.        guiload guis:tools/guiedit.gc
  125.        guiload $guiname
  126.     endif
  127.     update demo.gc 7 'Make a Gui..'
  128.  
  129.